InStr-Funktion (Beispiel)

In diesem Beispiel wird die InStr-Funktion verwendet, um die Position des ersten Auftretens einer Zeichenfolge innerhalb einer anderen Zeichenfolge zurⁿckzugeben.

Dim SuchText, SuchZeichen, Pos1
Suchtext ="XXpXXpXXPXXP"    ' Zu durchsuchende
    ' Zeichenfolge.
SuchZeichen = "P"    ' Nach "P" suchen.

' Reiner Textvergleich ab Position 4. Das Ergebnis ist 6.
Pos1 = Instr(4, Suchtext, SuchZeichen, 1)    

' BinΣrer Vergleich ab Position 1. Das Ergebnis ist 9.
Pos1 = Instr(1, Suchtext, SuchZeichen, 0)

' StandardmΣ▀ig wird der Vergleich binΣr durchgefⁿhrt
' (wenn das letzte Argument nicht angegeben wird).
Pos1 = Instr(Suchtext, SuchZeichen)    ' Liefert 9.

Pos1 = Instr(1, Suchtext, "W")    ' Liefert 0.